home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / qms / vms / laser.com < prev    next >
Text File  |  1990-10-01  |  549b  |  16 lines
  1. $inizio:
  2. $    if p1 .eqs. "" then inquire p1 "  Nome del File "
  3. $    if p1 .eqs. "" then goto inizio
  4. $    l=f$locate(".",p1)
  5. $    if l.eq.f$length(p1) then p1:='p1'.bit
  6. $    if f$extract(l,4,p1).eqs.".BIT" then goto stampa
  7. $    write sys$output "          Il file non e' di tipo .BIT !"
  8. $    write sys$output "          Sei certo di volerlo stampare ?  [si]"
  9. $    inquire yes      "                                           [no=def.] "
  10. $    if yes .eqs. "SI" then goto stampa
  11. $    p1=""
  12. $    goto inizio
  13. $stampa:
  14. $    print/queue=lca0/notify 'p1' 'p2' 'p3' 'p4'
  15. $    show queue lca0/all
  16.